// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;
short set_att = 0;

body;

beginstate INIT_STATE;

	set_name(8,"Commander Rossi");
	set_name(9,"Felicia");
	set_name(10,"Thoma");
	set_level(10,20);
	
	set_name(22,"Rockfall Soldier");
	set_name(23,"Rockfall Soldier");
	set_name(24,"Rockfall Soldier");
	set_name(25,"Rockfall Soldier");
	set_level(22,22);
	set_level(23,22);
	set_level(24,22);
	set_level(25,22);
	add_range_to_group(10,17,1);
	add_range_to_group(18,25,2);

	set_aggression(26,9);
	add_range_to_group(26,33,3);
	set_boss_level(1003,2);
	
	set_aggression(34,10);
	set_aggression(35,10);
	set_aggression(36,10);

	add_range_to_group(37,43,4);

	add_range_to_group(44,51,5);
	add_range_to_group(52,59,6);
	
	set_aggression(60,10);
	set_aggression(61,10);

	if (gf(100,11) > 0) {
		print_str_color("Word of your infamy has gotten here before you. You are forever marked",3);
		print_str_color("  as a foe of the Shapers.",3);
		sf(51,1,1);
		}
	if (get_sdf(51,1) > 0) {
		make_zone_hostile();
		}
		else if (gf(51,4) == 0) {
			print_str_color("This is a friendly fort. You are able to rest.",2);
			revive_party();
			}	

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	
	if (gf(100,15) > 1)
		sf(51,4,1);
		
	if (gf(51,4) > 0) {
		erase_char(8);
		erase_char(9);
		erase_char(1001);
		erase_char(1002);
		erase_char(1003);
		}
		else {
			erase_char(1005);
			erase_char(1006);
			}
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	if ((set_att == 0) && (gf(51,1) == 0) && (gf(51,6) > 0)) {
		set_att = 1;
		set_attitude(1003,3);
		}
		
	// clear zone?
	//if ((zone_clear(ME) == FALSE) && (get_flag(,) > 0)) {
		//print_str_color("",2);
		//clear_zone(ME);	
		//}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(51,1) == 0)) {
		make_zone_hostile();
		set_flag(51,1,1);
		}

	 if (gf(51,1) == 0) {
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"Not enough troops ...");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"Restless creations ...");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"Can we grow thorns?");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(8,"Breed some mines?");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Nowhere better to go.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"I welcome you.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"We need goods.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(9,"Buy something?");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"I loyal servile.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"I fix things.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(10,"No want trouble.");
		if (get_ran(1,0,100) < 20)
			give_char_text_bubble(24,"Thwip!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(24,"Missed again!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(24,"Dang it!");

		}
	
	//if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_group()) && (tick_difference(last_abil,get_current_tick()) > 5))) {
	//	last_abil = get_current_tick();
	//	}
break;

beginstate 10;
	set_terrain_string_range("The sign says - ANVIL CHAMBER.",3);
break;

beginstate 11;
	set_terrain_string_range("The sign says - Felicia's Dry Goods.",3);
break;

beginstate 12;
	set_terrain_string_range("The sign says - BARRACKS.",3);
break;

beginstate 13;
	if ((zone_clear(ME) == FALSE) && (get_flag(51,5) > 0) && (gf(51,2) + gf(51,3) > 0)) {
		clear_zone(ME);	
		}
	if ((zone_clear(ME) == FALSE) && (char_ok(8) == FALSE)) {
		clear_zone(ME);	
		}
		
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
